home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_091 / samples / aard / transit.adl < prev    next >
Text File  |  1992-05-06  |  11KB  |  628 lines

  1. {*** FUNNY TRANSITION ROUTINES ***}
  2.  
  3. exitg =
  4.     ($say "Oh dear, you seem to have gotten yourself killed.\n")
  5.     (skore)
  6.     (ratng)
  7.     (ratnx)
  8.     (IF ($not ($prop .ME debug)) THEN
  9.     ($spec QUIT)
  10.     )
  11. ;
  12.  
  13.  
  14. em3 =
  15.     (IF ($not ($prop paper signed)) THEN
  16.     (cg)
  17.     ($return 0)
  18.     )
  19.     ($move .ME irm1)
  20. ;
  21.  
  22.  
  23. ei8 =
  24.     (IF ($eq ($loc spices) .ME) THEN
  25.     ($say
  26. "The savory blend of spices and human wakes up the sleeping crocodiles who
  27. decide to have you for breakfast.\n"
  28.     )
  29.     (exitg)
  30.      ELSEIF ($eq ($loc rupees) .ME) THEN
  31.     ($say
  32. "The weight of the coins pulls you underwater and you eventually drown.\n"
  33.     )
  34.     (exitg)
  35.      ELSE
  36.     ($say
  37. "You manage to get across the river, just as the crocodiles
  38. begin to stir.\n"
  39.     )
  40.     ($move .ME irm9)
  41.     )
  42. ;
  43.  
  44.  
  45. wi12 =
  46.     (IF ($not ($prop statue tlakst)) THEN
  47.     (cg)
  48.     ($return 0)
  49.     )
  50.     ($move .ME irm14)
  51. ;
  52.  
  53.  
  54. ui16 =
  55.     (IF ($not ($prop rope ropstf)) THEN
  56.     (cg)
  57.     ($return 0)
  58.     )
  59.     ($say "You scramble up the rope and get to the ledge.\n")
  60.     ($move .ME irm17)
  61. ;
  62.  
  63.  
  64. ui17 =
  65.     ($say "Are you a rock climber? \n")
  66.     (IF ($not ($yorn)) THEN
  67.     ($say "Then you better not try it.\n")
  68.     ($return 0)
  69.     )
  70.     ($say "That climb is rated 5.11. Do you still want to try it?\n")
  71.     (IF ($not ($yorn)) THEN
  72.     ($say "Wise move.\n")
  73.     ($return 0)
  74.     )
  75.     ($say
  76. "Half way up, you fall off a 1/32 inch wide ledge and
  77. plummet to your death.\n"
  78.     )
  79.     (exitg)
  80. ;
  81.  
  82.  
  83. di19 =
  84.     ($say
  85. "You magically get transported to the corner of Westwood and
  86. Broxton, where you are forced to spend the rest of eternity surrounded by
  87. Hari-Krishna freaks. (That'll teach you not to believe legends.)\n"
  88.     )
  89.     ($spec QUIT)
  90. ;
  91.  
  92.  
  93. ei20 =
  94.     (IF ($not ($prop monkey fedmky)) THEN
  95.     (cg)
  96.     ($return 0)
  97.     )
  98.     ($move .ME irm21)
  99. ;
  100.  
  101.  
  102. wi21 =
  103.     (IF ($eq ($loc peel) irm20) THEN
  104.     ($say
  105. "As you leave the temple, you slip on a banana peel and break your neck.\n"
  106.      )
  107.     (exitg)
  108.     )
  109.     ($move .ME irm20)
  110. ;
  111.  
  112.  
  113. di22 =
  114.     (IF ($eq ($loc cobra) irm22) THEN
  115.     ($say
  116. "The cobra takes a bite at your unprotected leg and injects an
  117. unhealthy dose of neurotoxin.  You start to lose your senses, your 
  118. cognitive abilities, an yer rekcogiskdfsdk.\n"
  119.     )
  120.     (exitg)
  121.     )
  122.     ($move .ME irm23)
  123. ;
  124.  
  125.  
  126. sm5 =
  127.     (IF ($not ($prop paper signed)) THEN 
  128.     ($say "You bumped into the grate.\n")
  129.     ($return 0)
  130.     )
  131.     ($move .ME prm1)
  132. ;
  133.  
  134.  
  135. dp2 =
  136.     (IF ($eq ($prop rope rtied) 0) THEN
  137.     ($say "It is too dangerous to climb down without a rope.\n")
  138.     ($return 0)
  139.     )
  140.     (IF ($and ($eq ($loc lamp) .ME) ($prop lamp LIGHT)) THEN
  141.     ($say
  142. "Half-way down the rope, the carbide lamp burns through the
  143. rope above you and you plummet to your death.\n"
  144.     )
  145.     (exitg)
  146.     )
  147.     ($say "You climb down the rope without any problems.\n")
  148.     ($move .ME prm3)
  149. ;
  150.  
  151.  
  152. ep5 =
  153.     (IF ($eq ($loc spear) .ME) THEN
  154.     ($say "You can't fit the spear you are carrying through that crack.\n")
  155.     ($exit 1)
  156.     )
  157.     ($move .ME prm6)
  158. ;
  159.  
  160.  
  161. ep8 =
  162.     ($say
  163. "You fall off the cliff and plummet several hundred feet to your
  164. death.\n"
  165.     )
  166.     (exitg)
  167. ;
  168.  
  169.  
  170. dp6 =
  171.     (IF ($not ($prop smilo stond)) THEN
  172.     ($say
  173. "As soon as you reach the bottom of the pit, the sabre-tooth
  174. tiger tears you to shreads.\n"
  175.     )
  176.     (exitg)
  177.     )
  178.     ($move .ME prm7)
  179. ;
  180.  
  181.  
  182. ep10 =
  183.     ($say
  184. "You fall into the lake, which actually turns out to be a
  185. tar-pit covered with a thin layer of rain water.  You eventually sink and
  186. get fossilized.\n"
  187.     )
  188.     (exitg)
  189. ;
  190.  
  191.  
  192. ep11 =
  193.     (IF ($not ($prop feet wiped)) THEN
  194.     ($move .ME prm10)
  195.     ($exit 1)
  196.     )
  197.     ($say
  198. "As you walk down the slab, your feet slip and you tumble
  199. off the slab.\n"
  200.     )
  201.     (ep10)
  202. ;
  203.  
  204.  
  205. sp12 =
  206.     ($say "You find your feet to be quite slippery as you walk.\n")
  207.     ($setp feet wiped 1)
  208.     ($move .ME prm11)
  209. ;
  210.  
  211.  
  212. sp14 =
  213.     (IF ($not ($prop mammoth blokd)) THEN
  214.     ($say "The mammoth keeps you from going that way.\n")
  215.     ($exit 1)
  216.     )
  217.     ($move .ME prm15)
  218. ;
  219.  
  220.  
  221. np17 =
  222.     (IF ($and ($eq ($prop spear tooky) 1) ($eq ($prop spear abrad) 0)) THEN
  223.     ($say "The rubble keeps you from going in that direction.\n")
  224.     ($exit 1)
  225.     )
  226.     ($move .ME prm18)
  227. ;
  228.  
  229.  
  230. np19 =
  231.     (IF ($not ($prop bear hitbr)) THEN
  232.     ($say "The bear keeps you from going that direction.\n")
  233.     ($exit 1)
  234.     )
  235.     ($move .ME prm20)
  236. ;
  237.  
  238.  
  239. wp22 =
  240.     (IF ($eq ($loc spear) .ME) THEN
  241.     ($say
  242. "The spear that you were carrying lodges in the tyranosaur's mouth.\n"
  243.     )
  244.     ($move spear prm23)
  245.     ($move .ME prm23)
  246.     )
  247.     (IF ($eq ($loc spear) prm23) THEN
  248.     ($move .ME prm23)
  249.     )
  250.     (IF ($and ($ne ($loc spear) .ME) ($ne ($loc spear) prm23)) THEN
  251.     ($say "The tyranosaur crushes you in his jaws and then swallows you.\n")
  252.     (exitg)
  253.     )
  254. ;
  255.  
  256.  
  257. dp23 =
  258.     ($say
  259. "You slide down the gullet of the tyranosaur and get 
  260. digested alive.\n"
  261.     )
  262.     (exitg)
  263. ;
  264.  
  265.  
  266. dm6 =
  267.     ($say
  268. "After wandering around in the forest for a while, you eventually
  269. find your way out.\n"
  270.     )
  271.     ($move .ME mrm1)
  272. ;
  273.  
  274.  
  275. darkq =
  276.     (IF ($not (Lit ($loc .ME))) THEN
  277.     (IF %0 THEN
  278.         ($return 1)
  279.     )
  280.     ($say "It is too dark to see anything in here.\n")
  281.     ($exit 0)
  282.     )
  283.     ($return 0)
  284. ;
  285.  
  286.  
  287. darkt =
  288.     (IF ($not (Lit ($loc .ME))) THEN
  289.     (IF ($pct 50) THEN
  290.         ($say
  291. "While stumbling around in the darkness, you trip and impale yourself on a 
  292. stalagmite.\n"
  293.         )
  294.         (exitg)
  295.     )
  296.     )
  297. ;  
  298.  
  299.  
  300. onlmp =
  301.     (IF ($ne ($loc lamp) .ME) THEN
  302.     ($say "You don't have the lamp with you.\n")
  303.     ($exit 1)
  304.     )
  305.     (IF ($not ($prop lamp LIGHT)) THEN
  306.     ($say "A blue flame now flickers out of the lantern.\n")
  307.     ($setp lamp LIGHT 1)
  308.     ($exit 1)
  309.     )
  310. ;
  311.  
  312.  
  313. {*** TRANSITIONS ***}
  314.  
  315. mrm1(ACTION) =
  316.     ($hit .ME mrm6 mrm2 mrm6 mrm6 0 0 mrm2 0 0 0)
  317.     ($miss 0 0 0 0 cg cg 0 dumdir 0 0)
  318. ;
  319.  
  320.  
  321. mrm2(ACTION) =
  322.     ($hit .ME mrm1 mrm4 mrm3 mrm4 0 mrm5 0 0 0 0)
  323.     ($miss 0 0 0 0 cg 0 dumdir dumdir 0 0)
  324. ;
  325.  
  326.  
  327. mrm3(ACTION) =
  328.     ($hit .ME 0 0 0 mrm2 0 0 0 0 0 0)
  329.     ($miss cg cg em3 0 cg cg dumdir dumdir 0 0)
  330. ;
  331.  
  332.  
  333. mrm4(ACTION) =
  334.     ($hit .ME mrm2 0 0 0 0 0 0 mrm2 0 0)
  335.     ($miss 0 cg cg cg cg cg cg 0 0 0)
  336. ;
  337.  
  338.  
  339. mrm5(ACTION) =
  340.     ($hit .ME 0 0 0 0 mrm2 0 0 0 0 0)
  341.     ($miss cg sm5 cg cg 0 cg dumdir dumdir 0 0)
  342. ;
  343.  
  344.  
  345. mrm6(ACTION) =
  346.     ($hit .ME 0 0 0 0 0 0 0 0 0 0)
  347.     ($miss dm6 dm6 dm6 dm6 cg cg dumdir dm6 0 0)
  348. ;
  349.  
  350.  
  351. irm1(ACTION) =
  352.     ($hit .ME 0 0 0 mrm3 0 irm2 0 0 0 0)
  353.     ($miss cg cg cg 0 cg 0 dumdir dumdir 0 0)
  354. ;
  355.  
  356.  
  357. irm2(ACTION) =
  358.     ($hit .ME 0 0 irm10 irm3 irm1 0 0 0 0 0)
  359.     ($miss cg cg 0 0 0 cg dumdir dumdir 0 0)
  360. ;
  361.  
  362.  
  363. irm3(ACTION) =
  364.     ($hit .ME irm4 0 irm2 0 0 0 0 0  0 0)
  365.     ($miss 0 cg 0 cg cg cg dumdir dumdir 0 0)
  366. ;
  367.  
  368.  
  369. irm4(ACTION) =
  370.     ($hit .ME 0 irm3 0 0 0 irm5 0 irm3 0 0)
  371.     ($miss cg 0 cg cg cg 0 dumdir 0 0 0)
  372. ;
  373.  
  374.  
  375. irm5(ACTION) =
  376.     ($hit .ME irm6 irm7 irm8 0 0 0 0 0 0 0)
  377.     ($miss 0 0 0 cg tohigh cg dumdir dumdir 0 0)
  378. ;
  379.  
  380.  
  381. irm6(ACTION) =
  382.     ($hit .ME 0 irm5 0 irm7 0 0 0 0 0 0)
  383.     ($miss tosml 0 cg 0 cg cg dumdir dumdir 0 0)
  384. ;
  385.  
  386.  
  387. irm7(ACTION) =
  388.     ($hit .ME irm5 0 irm6 0 0 0 0 0 0 0)
  389.     ($miss 0 cg 0 cg cg cg dumdir dumdir 0 0)
  390. ;
  391.  
  392.  
  393. irm8(ACTION) =
  394.     ($hit .ME 0 0 0 irm5 0 0 0 irm5 0 0)
  395.     ($miss cg cg ei8 0 cg cg dumdir 0 0 0)
  396. ;
  397.  
  398.  
  399. irm9(ACTION) =
  400.     ($hit .ME 0 0 0 irm8 irm10 0 0 irm10 0 0)
  401.     ($miss cg cg cg 0 0 cg dumdir 0 0 0)
  402. ;
  403.  
  404.  
  405. irm10(ACTION) =
  406.     ($hit .ME 0 irm11 irm22 irm2 0 irm9 0 0 0 0)
  407.     ($miss cg 0 0 0 cg 0 dumdir dumdir 0 0)
  408. ;
  409.  
  410.  
  411. irm11(ACTION) =
  412.     ($hit .ME irm10 irm12 0 irm13 0 0 0 0 0 0)
  413.     ($miss 0 0 cg 0 cg cg cg cg 0 0)
  414. ;
  415.  
  416.  
  417. irm12(ACTION) =
  418.     ($hit .ME irm11 0 irm15 0 0 0 0 0 0 0)
  419.     ($miss 0 cg 0 wi12 cg cg dumdir dumdir 0 0)
  420. ;
  421.  
  422.  
  423. irm13(ACTION) =
  424.     ($hit .ME 0 irm15 irm11 0 0 0 0 0 0 0)
  425.     ($miss cg 0 0 cg cg cg dumdir dumdir 0 0)
  426. ;
  427.  
  428.  
  429. irm14(ACTION) =
  430.     ($hit .ME 0 0 irm12 0 0 0 0 irm12 0 0)
  431.     ($miss cg cg 0 cg cg cg dumdir 0 0 0)
  432. ;
  433.  
  434.  
  435. irm15(ACTION) =
  436.     ($hit .ME irm13 0 irm16 irm12 0 0 0 0 0 0)
  437.     ($miss 0 cg 0 0 cg cg dumdir dumdir 0 0)
  438. ;
  439.  
  440.  
  441. irm16(ACTION) =
  442.     ($hit .ME irm22 0 irm18 irm15 0 0 0 0 0 0)
  443.     ($miss 0 cg 0 0 ui16 cg dumdir dumdir 0 0)
  444. ;
  445.  
  446.  
  447. irm17(ACTION) =
  448.     ($hit .ME 0 0 0 0 0 irm16 0 0 0 0)
  449.     ($miss cg cg cg cg ui17 0 dumdir dumdir 0 0)
  450. ;
  451.  
  452.  
  453. irm18(ACTION) =
  454.     ($hit .ME 0 irm19 irm20 irm16 0 0 0 0 0 0)
  455.     ($miss cg 0 0 0 cg cg dumdir dumdir 0 0)
  456. ;
  457.  
  458.  
  459. irm19(ACTION) =
  460.     ($hit .ME irm18 0 0 0 0 0 0 irm18 0 0)
  461.     ($miss 0 cg cg tosml cg di19 dumdir 0 0 0)
  462. ;
  463.  
  464.  
  465. irm20(ACTION) =
  466.     ($hit .ME 0 0 0 irm18 0 0 0 0 0 0)
  467.     ($miss cg cg ei20 0 cg cg dumdir dumdir 0 0)
  468. ;
  469.  
  470.  
  471. irm21(ACTION) =
  472.     ($miss cg cg cg wi21 cg cg dumdir wi21 0 0)
  473. ;
  474.  
  475.  
  476. irm22(ACTION) =
  477.     ($hit .ME 0 irm16 0 irm10 0 0 0 0 0 0)
  478.     ($miss cg 0 cg 0 cg di22 di22 cg 0 0)
  479. ;
  480.  
  481.  
  482. irm23(ACTION) =
  483.     ($hit .ME 0 0 0 0 irm22 0 0 irm22 0 0)
  484.     ($miss cg cg cg cg 0 cg dumdir 0 0 0)
  485. ;
  486.  
  487.  
  488. prm1(ACTION) =
  489.     (darkt)
  490.     ($hit .ME mrm5 prm2 0 0 0 0 0 0 0 0)
  491.     ($miss 0 0 cg cg cg cg dumdir dumdir 0 0)
  492. ;
  493.  
  494.  
  495. prm2(ACTION) =
  496.     ($hit .ME prm1 0 0 0 0 0 0 0 0 0)
  497.     ($miss 0 cg cg cg cg dp2 dumdir dumdir 0 0)
  498. ;
  499.  
  500.  
  501. prm3(ACTION) =
  502.     ($hit .ME 0 0 0 prm4 prm2 0 0 0 0 0)
  503.     ($miss cg cg cg 0 0 cg dumdir dumdir 0 0)
  504. ;
  505.  
  506.  
  507. prm4(ACTION) =
  508.     ($hit .ME 0 prm5 prm3 prm9 0 0 prm5 0 0 0)
  509.     ($miss cg 0 0 0 cg cg 0 dumdir 0 0)
  510. ;
  511.  
  512.  
  513. prm5(ACTION) =
  514.     (darkt)
  515.     ($hit .ME prm4 0 0 0 0 0 0 prm4 0 0)
  516.     ($miss 0 cg ep5 cg cg cg dumdir 0 0 0)
  517. ;
  518.  
  519.  
  520. prm6(ACTION) =
  521.     (darkt)
  522.     ($hit .ME 0 0 0 prm5 0 0 0 0 0 0)
  523.     ($miss cg cg cg 0 cg dp6 dumdir dumdir 0 0)
  524. ;
  525.  
  526.  
  527. prm7(ACTION) =
  528.     (darkt)
  529.     ($hit .ME 0 prm8 0 0 prm6 0 0 0 0 0)
  530.     ($miss cg 0 cg cg 0 cg dumdir dumdir 0 0)
  531. ;
  532.  
  533.  
  534. prm8(ACTION) =
  535.     (darkt)
  536.     ($hit .ME prm7 0 0 0 0 0 0 0 0 0)
  537.     ($miss 0 cg ep8 cg cg cg dumdir dumdir 0 0)
  538. ;
  539.  
  540.  
  541. prm9(ACTION) =
  542.     ($hit .ME prm10 0 prm4 prm13 0 0 0 0 0 0)
  543.     ($miss 0 cg 0 0 cg cg dumdir dumdir 0 0)
  544. ;
  545.  
  546.  
  547. prm10(ACTION) =
  548.     ($hit .ME 0 prm9 0 prm11 prm11 0 0 0 0 0)
  549.     ($miss cg 0 ep10 0 0 cg dumdir dumdir 0 0)
  550. ;
  551.  
  552.  
  553. prm11(ACTION) =
  554.     ($hit .ME prm12 0 0 0 0 0 0 0 0 0)
  555.     ($miss 0 cg ep11 cg cg ep11 dumdir dumdir 0 0)
  556. ;
  557.  
  558.  
  559. prm12(ACTION) =
  560.     ($miss cg  sp12 cg cg cg cg dumdir dumdir 0 0)
  561. ;
  562.  
  563.  
  564. prm13(ACTION) =
  565.     ($hit .ME 0 prm14 prm9 prm16 0 0 0 0 0 0)
  566.     ($miss cg 0 0 0 cg cg dumdir dumdir 0 0)
  567. ;
  568.  
  569.  
  570. prm14(ACTION) =
  571.     ($hit .ME prm13 0 0 0 0 0 0 0 0 0)
  572.     ($miss 0 sp14 tosml cg cg cg dumdir dumdir 0 0)
  573. ;
  574.  
  575.  
  576. prm15(ACTION) =
  577.     ($hit .ME prm14 0 0 0 0 0 0 0 0 0)
  578.     ($miss 0 cg cg cg cg cg dumdir dumdir 0 0)
  579. ;
  580.  
  581.  
  582. prm16(ACTION) =
  583.     ($hit .ME prm17 0 prm13 0 0 prm21 0 0 0 0)
  584.     ($miss 0 cg 0 cg cg 0 dumdir dumdir 0 0)
  585. ;
  586.  
  587.  
  588. prm17(ACTION) =
  589.     ($hit .ME 0 prm16 0 0 0 0 0 0 0 0)
  590.     ($miss np17 0 cg cg cg cg dumdir dumdir 0 0)
  591. ;
  592.  
  593.  
  594. prm18(ACTION) =
  595.     ($hit .ME prm19 prm17 0 0 0 0 0 0 0 0)
  596.     ($miss 0 0 cg cg cg cg dumdir dumdir 0 0)
  597. ;
  598.  
  599.  
  600. prm19(ACTION) =
  601.     ($hit .ME 0 prm18 0 0 0 0 0 0 0 0)
  602.     ($miss np19 0 cg cg cg cg dumdir dumdir 0 0)
  603. ;
  604.  
  605.  
  606. prm20(ACTION) =
  607.     ($hit .ME 0 prm19 0 0 0 0 0 prm19 0 0)
  608.     ($miss cg 0 cg cg cg cg dumdir 0 0 0)
  609. ;
  610.  
  611.  
  612. prm21(ACTION) =
  613.     ($hit .ME 0 0 0 0 prm16 prm22 0 0 0 0)
  614.     ($miss cg cg cg cg 0 0 dumdir dumdir 0 0)
  615. ;
  616.  
  617.  
  618. prm22(ACTION) =
  619.     ($hit .ME 0 0 0 0 prm21 0 0 0 0 0)
  620.     ($miss cg cg cg wp22 0 cg dumdir dumdir 0 0)
  621. ;
  622.  
  623.  
  624. prm23(ACTION) =
  625.     ($hit .ME 0 0 prm22 0 0 0 0 prm22 0 0)
  626.     ($miss cg cg 0 cg cg dp23 dumdir 0 0 0)
  627. ;
  628.